home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 18 Board & Card Games / 64TALK.BIN (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  3.1 KB  |  100 lines
  1. 0 POKE808,234
  2. 1 REM BY ERIC DONOHO
  3. 2 REM YOU CAN CATCH ME AT 10:00 EASTERN ON CBM-962 SATURDAY
  4. 4 DIML$(500):SM=500
  5. 5 Q=0:REM 1 IF LOADED SOMETHING
  6. 6 P=0:REM REMARK LAST GIVEN
  7. 7 LI=0:REM LAST LINE TO LIST
  8. 10 PRINT"รด    **** COMMODORE 64 BASIC V2 ****"
  9. 15 PRINT" 64K RAM SYSTEM  38911 BASIC BYTES FREE"
  10. 20 E=E+1:PRINT"READY."
  11. 25 OPEN1,0:INPUT#1,A$:CLOSE1:PRINT:IFA$=""THEN25
  12. 30 A=ASC(LEFT$(A$,1)):IFA>47ANDA<58THEN5000
  13. 35 IFLEFT$(A$,4)="POKE"THEN1045
  14. 40 IFLEFT$(A$,5)="PRINT"THEN1070
  15. 45 IFLEFT$(A$,1)="?"THEN1080
  16. 50 IFLEFT$(A$,4)="LIST"THEN1090
  17. 60 IFLEFT$(A$,3)="RUN"THEN1110
  18. 65 IFLEFT$(A$,3)="NEW"THEN1120
  19. 70 IFLEFT$(A$,4)="LOAD"THEN1130
  20. 80 IFLEFT$(A$,4)="SAVE"THEN1160
  21. 90 IFLEFT$(A$,3)="WHY"THEN1170
  22. 100 IFLEFT$(A$,5)="HELLO"ORLEFT$(A$,2)="HI"THEN1210
  23. 105 IFLEFT$(A$,3)="BYE"ORLEFT$(A$,8)="GOOD BYE"THEN1215
  24. 110 IFLEFT$(A$,7)="SHUT UP"THEN1220
  25. 115 IFLEFT$(A$,3)="SYS"THEN1230
  26. 120 IFLEFT$(A$,11)="YOUR MOTHER"THEN1235
  27. 125 IFLEFT$(A$,6)="VERIFY"THEN6050
  28. 130 IFLEFT$(A$,4)="OPEN"THEN6500
  29. 140 IFLEFT$(A$,5)="CLOSE"THEN6600
  30. 145 IFLEFT$(A$,3)="LET"THEN6610
  31. 150 IFLEFT$(A$,4)="GOTO"ORLEFT$(A$,5)="GOSUB"THEN6620
  32. 155 IFLEFT$(A$,3)="CLR"THENPRINT:GOTO20
  33. 160 IFLEFT$(A$,4)="READ"THEN6625
  34. 165 IFLEFT$(A$,4)="DATA"THEN6630
  35. 900 PRINT"?SYNTAX  ERROR":GOTO20
  36. 999 GOTO20
  37. 1045 PRINT:IFP=2THEN1055
  38. 1050 P=2:PRINT"?NO POKING  ERROR":GOTO20
  39. 1055 P=2:PRINT"?I SAID NO POKING ERROR!":GOTO20
  40. 1070 PRINTRIGHT$(A$,LEN(A$)-5)"":GOTO20
  41. 1080 PRINTRIGHT$(A$,LEN(A    
  42. 1090 IFQ=0THENPRINT:GOTO20
  43. 1091 PRINT:FORX=1TOLI:IFL$(X)=""THEN1100
  44. 1095 PRINTL$(X):GETT$:IFT$=""THENPRINT"BREAK":GOTO20
  45. 1100 NEXT:GOTO20
  46. 1110 IFQ=1THENPRINT"?SYNTAX  ERROR IN"SM:GOTO20
  47. 1111 PRINT:GOTO20
  48. 1120 Q=0:FORX=SMTOLI:L$(X)="":NEXT:PRINT:LI=0:SM=500:GOTO20
  49. 1130 Q=1:PRINT"SEARCHING FOR ";:PRINTMID$(A$,6,LEN(A$)-6):FORX=1TO2
  50. 1131 OPEN2,8,2,"0:HI,S,R"
  51. 1135 FORZ=1TO100:NEXT:CLOSE2:NEXT:PRINT"LOADING":FORX=1TO6
  52. 1140 OPEN2,8,2,"0:HI,S,R":FORZ=1TO100:NEXTZ:CLOSE2:NEXT:OPEN15,8,15
  53. 1150 INPUT#15,X$:CLOSE15:GOTO6000
  54. 1160 PRINT"SAVING ";MID$(A$,6,LEN(A$)-6):FORX=1TO8
  55. 1161 OPEN2,8,2,"0:HI,S,R":FORZ=1TO100:NEXTZ:CLOSE2:NEXTX
  56. 1162 I=INT(5*RND(1))+1:IFI=5THEN20
  57. 1163 OPEN15,8,15:INPUT#15,X:CLOSE15:GOTO20
  58. 2450 
  59. 1171 PRINT"?BECAUSE":GOTO20
  60. 1180 PRINT"?JUST BECAUSE I AM RUNNING NOW!":P=0:GOTO20
  61. 1190 PRINT"?BECAUSE YOU COULD MESS SOMETHING UP!":P=0:GOTO20
  62. 1200 PRINT"?NO REASON...JUST DON'T FEEL LIKE IT.":P=0:GOTO20
  63. 1210 PRINT"?HELLO THERE!  NOW LAY OFF THE KEYS!":GOTO20
  64. 1215 PRINT"?YES....GO AWAY!":GOTO20
  65. 1220 PRINT"?I AIN'T GUNNA CLOSE MY MOUTH!":GOTO20
  66. 1230 PRINT"?MACHINE LANGUAGE!  BLAA!":GOTO20
  67. 1235 PRINT"?YOUR MOTHER!!!":GOTO20
  68. 5000 FORX=1TO10:L$=MID$(A$,X,1):IFL$=""THENL$=" "
  69. 5005 L=ASC(L$):IFL>57ORL<48THEN5020
  70. 5010 NEXT:GOTO25
  71. 5020 N$=LEFT$(A$,X-1):N=VAL(N$):IFLEN(A$)=X-1THEN5030
  72. 5025 Q=1:L$(    
  73. 5026 IFN<SMTHENSM=N
  74. 5027 GOTO25
  75. 5030 L$(N)="":GOTO25
  76. 6000 IFMID$(A$,6,LEN(A$)-6)="$"THEN7000
  77. 6001 FORX=SMTOLI:L$(X)="":NEXT
  78. 6005 L$(1)="1 YOU ARE A JOKE."
  79. 6010 L$(2)="2 THIS GAME YOU LOADED"
  80. 6020 L$(3)="3 IS A JOKE!  YOUR WHOLE"
  81. 6025 L$(4)="4 FAMILY IS A JOKE!":LI=4:SM=1
  82. 6030 GOTO20
  83. 6050 PRINT"SEARCHING FOR ";MID$(A$,8,LEN(A$)-8):FORX=1TO2
  84. 6055 OPEN2,8,2,"0:HI,S,R":FORZ=1TO100:NEXT:CLOSE2:NEXT
  85. 6060 PRINT"VERIFYING":FORX=1TO8:OPEN2,8,2,"0:HI,S,R"
  86. 6065 FORZ=1TO100:NEXT:CLOSE2:NEXT:PRINT"?VERIFY  ERROR":OPEN15,8,15
  87. 6070 INPUT#15,X:CLOSE15:GOTO20
  88. 6500 P=3:PRINT"?OPEN WHAT??!?!?!":GOTO20
  89. 6600 PRINT"?CLOSE IT YOURSE    !":GOTO20
  90. 6610 PRINT"?LET!  WHAT A USELESS COMMAND!":GOTO20
  91. 6620 PRINT"?NO GO, JOE":GOTO20
  92. 6625 PRINT"?OUT OF DATA  ERROR":GOTO20
  93. 6630 PRINT"?NOT ACCEPTING DATA  ERROR":GOTO20
  94. 7000 FORX=SMTOLI:L$(X)="":NEXT
  95. 7001 L$(1)="0 "+CHR$(34)+"DISK OF FUN     "+CHR$(34)+" 17 2A"
  96. 7005 L$(2)="5    "+CHR$(34)+"MY WORK"+CHR$(34)+"          PRG"
  97. 7010 L$(3)="8    "+CHR$(34)+"I LOVE YOU"+CHR$(34)+"       PRG"
  98. 7015 L$(4)="2    "+CHR$(34)+"GIGGLES ME"+CHR$(34)+"       PRG"
  99. 7020 LI=5:SM=1:L$(5)="649 BLOCKS FREE":GOTO20
  100.